www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/conn.asp

    <%
dim conn,connstr,TimesDB,rs
TimesDB="../companydata/#company_my.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&TimesDB&"")
'On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open connstr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "<center>数据库连接错误，请检查Conn.asp文件连接字符串！</center>"
		Response.End
	End If

'set rs=server.CreateObject("adodb.recordset")
%>
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/Const.asp"-->